home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Languguage OS 2
/
Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO
/
a_utils
/
perl
/
prlbkxmp.lha
/
ch5
/
findbit.eg
< prev
next >
Wrap
Text File
|
1991-01-08
|
230b
|
10 lines
$vector = "\000" x 256;
vec($vector,1,rand(256*8)) = 1;
undef $found;
if ($vector =~ /[^\000]/) {
for (length($`)*8..length($`)*8+7) {
$found = $_, last if vec($vector,$_,1);
}
}
print "found the random bit at $found\n";